@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr ; 5-25-86_lib equ $8c05_local equ $80_sp equ $82_t equ $94_r0 equ _t_r1 equ _t+2_ciov equ $e456_global equ $8C00_a}bi macro jsr _lib+$15f endm_abr macro jsr _lib+$162 endm_adi macro jsr _lib+6 endm_adr macro jsr _lib+$54 endm}_and macro jsr _lib+$14d endm_arc macro jsr _lib+$111 endm_beq macro jsr _lib+$cf beq _&1 endm_cgb macro lda _}global-&1 cmp _global-&2 beq _&3 endm_cgw macro lda _global-&1 cmp _global-&2 bne *+10 lda _global-&1+1 cmp _global}-&2+1 beq _&3 endm_chk macro lda #>&1 ldy #<&1 jsr _lib+3 lda #>&2-&1 ldy #<&2-&1 jsr _lib+9 endm_chn macro lda$}PROGRAM Print;TYPE String15 = ARRAY[1..15] OF Char;VAR n,x: Integer; c: Char; f,printer: Text; s: String1 }5;BEGIN x:=0; n:=1; Write('FILENAME? '); Readln(s); Write('Line numbers(Y/N)? '); Readln(c);Rewrite(Printer,'P:'); Re }set(f,s);WHILE NOT EOF(f) DO BEGIN IF (c='Y') AND (x=0) THEN BEGIN x:=1; IF n<10 THEN Write(printer,'000',n,'  } '); IF (n>9) AND (n<100) THEN Write(printer,'00',n,' '); IF (n>99) AND (n<1000) THEN Write(printer,'0',n,' ');  } IF n>999 THEN Write(printer,n,' ') END; IF EOLn(f) THEN BEGIN x:=0; n:=n+1; } Writeln(printer) END ELSE Write(printer,f^); Get(f);END;END. x:=0; n:=n+1; U޻LL^L1LpLǓLΓL}LRL}LLķLLLLLLLLLLfLiL]L:LOL]LɟLLLLLL{LLΑLLLğLL}LpLwLLeLFLSL`LmLzLLzLL"LDLLLLϒL1LKLLLL LL~LLBL~LOLOL=L]LL۸LLRLLLТLݢL}LLLLL~LFLţLңLbLvL^L4L LLȳLALL L7LߣLLLuLTL@LLL LqLFLLLCLLθLL*LL*LLa}LL*LQLL(ʩ`ʩ` L"`X@ԩ67آ ŏiWE:  Ώ} ŏ LR % 򺢀  #0ɛ% !lDO Sl ::#})ߍ Һ0 ( ɺHE Һ0L( ɺ Һ0L(H ɺ Һ0 ( ɺh=Ɉɪɥ}- MHJJJJOh)PiBi LDEHIB V[cŰűΥQD}E V0BDE8尝H屝IHI V0 ɺlH ɺL֎hhhhXL B V`BDEJ}K V`H BHIh V`DE BHI V`BDEHI V`Error Code - Bad Load FileFile Not} FoundFile Name ErrorNot a Load FileInvailid Device0123456789ABCDEFH ʧh:ɛ ȱ:%} $ - *6 7$  !L: G ! 4 ! !D E BHI VL B<} D!EHI V08! !H!!I !D!E V0 `BD!EJK V` B V`error loading pasca<}l libraryD8:lib h   8   8J! LT!FILENAME?  "  }ꠋ <}   > =! L!Line numbers(Y/N)?  "  }    P 5 =  ! L!P:<}   ꠋ    1 ;$ L Y  n  O  n R5$ L  <} 8  O  " L  "" L"000  }  O  wӠ" L"   }  O<}    Od  Rg# L  ")# L+#00  }  O  wW# LY#   }< }  Oc    O  R# L  "0    O  wҠ# L#   } &1 ldy #<&1 jsr _lib+$21 endm_clb macro lda #>_&4+5-&1 ldy #<_&4+5-&1 jsr _lib+$a8 lda #>_&4+5-&2 ldy #<_&4+5-&2|}La {8 Ĕ񩛝L8PL`)`uuPL`5``&}8咅哅`Œ哰L`II唐`hhlee8`ee8ȱ`ee'}HHHȱh ʧ```hhlŒȱHȱhL ʧ`eei`e(}eiȱi``ʠ`ʠȱ`ܻݻ`ee`eeʠ`e)}eʠȱ`hhhhHH8咅哅ȥȥȥ`eeʥ`p0``L*}p`0`Lᔠ`8PL`I`)LL` L8`ʕ`8+}PL`ee`eeȵ``` Lii`,}PI`0PI`PI`0PI`ȑi-}iܻݻ»`H h rs c 5L : 5 5`ܻ ݻC c8 `U cܻݻ l`st.}op at address $ stop at line ȱ 5`˕ו &:Tcase index errorarray index error input error file /}not open range errorarithmetic overflowpathname too long end of filecannot dispose heap overflowtoo many open filescanno0}t read from "output"cannot write to "input"ݴLݴL 0 5ץ 0 5` d'1} ĖLĖHJJJJ ͖h) 0:iL5`H 5hH Ė 5h Z cL:G[s͗旧&2} - error codenon-existent devicedevice or file not opendevice timeoutdisk drive # errortoo many open disk files disk ful3}lfatal disk I/O errorinternal file # mismatchfile name error file lockedinvalid disk commanddirectory fullfile not foun4}dŻHHŻ hh`ʵ` ߘ&&& ee楒 ` ߘ&&&8厥叐厅叅挈 ` ߘ5}&&&Ŏ叐 厅叅ߥLE 8包卅 8厅叅` 8包卅6}`ʱ` 葒`hihiHHʱ`I ` j ` j ` j `7} j `ə!əL   ݜ(`LLLL`I EL|8 |88} "8 |` '8 |LP 8I `mmM9} ) JJJJ  ` ' P`LM @ :} @ ߢ` P қ`mmmmmmm`8;}`.....................<}...`NnnnnnnNnnnnnnNnnnnnnNnnnnnn` 򺨽򺘝`Lᔭ=}) 'ii`` қ8`8!8陰L8  `>}) )8)) )8)``ʹ?}` 8咅哅&eeeإ) 0JJJJ 0) 0JJJJ 0) 00@}Ȅ8嗨 - Ɨ Ɨ` /Lᔠ  LN+- /L 0L :LA} HH&&&&hehee&&)eee8咩哩唐, / Џ 8咅哅ʥ`B} /  L LᔅFf uu6` LL LL LL LL LLC} LLU) i) `` i`) ``Lw)sLX&0\&0VD}ee0G&0A)ee00&&&Ɣ) 8咅哅i`Lᔠ i8`E}襕ŕ ƕLĕ` L ` /Lᔠ  LѠ .eF}+- 0: V l /LL     G}    ݡ*L?L? ) L? H}) L?L?L? m )mL?` L9- 8m8 I}mح- 򺑌` /  L9`>` LL LL LJ}L LL LL LLю``` /LʠK} `Œ ƒL{ `ʵ LpLpTRUEFALSEʵLRʵL fL})  Lɟ ` 4ɻ 몭LLʠ` :` 4ɻ 몭LL ɻLM}ʠ `ɻ `  L `e ֥) 8咅哅eePLᔵ) 8N}咅哅dLᔥ m ` ֥) 8i`` ɞ` f O})  `r`  !"#$%&'()0123456789@ABCDEFGHIPQRSTUVWXY`abcdefghipqrstuvwxy)JJJeP})e`Lᔵ8 G 8唕 / ) - . ƔE +)- JJJJ 0 ) 0 Q}i`ɚLᔵLᔵ8 / ֥) . Lצ 禩0 .  Ɣ00 LǦƔ0R} Lצi`eȵ) ĕ L) - `) 0 666666`HHʠȱhh {ʠȱ `HHʵS}ȱhh {ʠȱ `ȱ葔Ēʠȱ `  ɻ} 5` `T}ȱ`łȱ僰٠ȱ 5Lҧ 4 ɻ ` 4 ɻ `襆ɻ`U}ɻ`HȱhLᔠņȱŇ` ` 4ɻ 5`H BDEV}HȱI VLۖh`H@i LᔩBDȱEJKJ VLۖh` ^ ʥ `W} ^ ᨠ ` ʩ 4ȥȭ X}ȩȭ»» `ȱņȱŇؠȱ 5`H ŏhY}iiA ^ʩ ^` 8喅嗅&eeeة&&ƕZ} 8` RɻLH hɛ `[}` LᔊHBDEHȱI VhLۖ `ɛ `hihiHH\}ʠȱ`hihiHHȱȵ`hhiiHHȱʱ`hhiiHH]}葎`)` ֥挥 `)挥 `Ll EE) uE)ߍE E J ^}] ] ɟ)uI u E J M E M U M ] U ] ɭ e e e m_}  m m m m m ٭ m ѭ m e e `}Mu`08Y&SX1ffffff33332v1A&#"uW1d!)2PQG`GF2877bwPqu EE)ߍE E f a} ɟ Ϋv v i ]v) u ] n ]LѬW2g ee) ue)ߍev e ѯ m ѯ b}e ev e ٯ m= e n n e e ev e e m  m c} m m m  m  m e e vI v !vd} )v 1v 9 Mu`gC2Vs Pui$'C&rb$'DI6y79@("`yvVB xdPe}#YuYW2gqU) L e e Ϋvvivwiwe el e me)elf}8vvww e n n e x x x  g} ܱ Ա ̱ ı x v i `"wfhhXh}ce0% )Qg1r8!67AP%e'738!S"ur2&Ih'@y%%`C!2GP  ) n mL i}) v z ѯ` ~ ɟ Ϋv v i ] ɟ i M M U M ] U j}] m m m  m   k} n   v) w0 L] v Ƴ } `hXcel}Td(FHPX@)V(26FQd)w @ f"wfh`) L e e Ϋvvivwiwe el m} e  e n θ٭v)#vivwiw w8nwnv n} v `Bp#`p"wfhhihiHH擥ђȱHȱhLƴ8ȱȱ` o} /L ` /`擥Œ`iipȱkeeȑȑp}eeŃ  LᔥŊȥȥȥiiȑ`iiœ@Œ6eeq}ȱȥ8唑ȱ啑Lŕ ŔȱLȱLU8r}ȱј Lᔈј Lᔠі іȱLȱȥqȥqј?ј7s}ȱȱqȱq`qȥqŒȱœȱqt}q``舱ʕ`ۻڻ 4 H ŏBDȱu}E JK VLۖڻ ۻ1BDEHȱI VLۖڻۻLh` I5 ` ʕ` Uv}i LL JJJ )ei"%LLʱ` ]L 5 `  ` I5 w}i LLJJJ)e` I5i LL襔Œ)JJJ)ex}ŔLT` !葒 ` @ʩÕ 4ûȭĻ Lmm8y}ͻL 8iiŒ哐iûĻ:.ɛȱ:#ȑĒz}ȩ`a {8 Ē`Lᔠ ûĻtȩeȩmȩpȥJJJJiaȥ)iaȥJJJJia{}ȥ)iaȩ`} jsr _lib+$a8 jsr _lib+$cf beq _&3 endm_clw macro lda #>_&4+5-&1 ldy #<_&4+5-&1 jsr _lib+$ab lda #>_&4+5-&2 ldy #<}}_&4+5-&2 jsr _lib+$ab jsr _lib+$cf beq _&3 endm_cos macro jsr _lib+$129 endm_ddo macro lda #>_&1 ldy #<_&1 jsr _} # - *6 7#  !L: G ! 4 ! !D E BHI VL B\} D!EHI V08! !H!!I !D!E V0 `BD!EJK V` B V`error loading pasca\}l libraryD8:lib h(! L3!1 iteration  "  } tk   8  I\}I唰L!kkkll k  O Iuu  5kklk klL!\}  II唰Ll#kkkll k  O IuuQ# L\}k k  Ok  O   8k k  Ok  O 8k  O  73# Ll k  O\} Iuu  5k k  Ok  O 8L"k k  O  8kklk klL1\}"k  O  "  w# L# primes  } t Lkk k  O  8kklk klL1\Hlib+$12 endm_dgb macro dec _global-&1 endm_dgw macro lda _global-&1 bne *+5 dec _global-&1+1 dec _global-&1 endm}_dis macro jsr _lib+$114 endm_dlb macro lda #>_&2+5-&1 ldy #<_&2+5-&1 jsr _lib+$1b endm_dlw macro lda #>_&2+5-&1} ldy #<_&2+5-&1 jsr _lib+$24 endm_dvi macro jsr _lib+$18 endm_dvr macro jsr _lib+$5d endm_end macro_&1 equ &2 l}da #>&2+5 ldy #<&2+5 jmp _lib+$66 endm_eof macro jsr _lib+$12c endm_eol macro jsr _lib+$ff endm_eq macro jsr _l}ib+$69 endm_eqr macro jsr _lib+$84 endm_eqs macro lda #>0-&1 ldy #<0-&1 jsr _lib+$ed endm_equ macro_&1 equ &2 }endm_err macro lda #&1 jsr _lib+$144 endm_exp macro jsr _lib+$126 endm_fld macro clc lda 0,x adc #>&1 sta 0,x} lda 1,x adc #<&1 sta 1,x endm_fln macro jsr _lib+$42 endm_flt macro jsr _lib+$3f endm_fun macro sec lda _sp }sbc #>&1 sta _sp lda _sp+1 sbc #<&1 sta _sp+1 endm_gei macro jsr _lib+$10e endm_ger macro jsr _lib+$93 endm_ge}s macro lda #>0-&1 ldy #<0-&1 jsr _lib+$fc endm_get macro lda #>&1 ldy #<&1 jsr _lib+$b4 endm_go macro lda #&2 }jsr _lib+$153 jmp _&1 endm_gti macro jsr _lib+$102 endm_gtr macro jsr _lib+$8d endm_gts macro lda #>0-&1 ldy #<}0-&1 jsr _lib+$f6 endm_fjp macro lda #>_&1 ldy #<_&1 jsr _lib+$147 endm_igb macro inc _global-&1 endm_igw macro} inc _global-&1 bne *+5 inc _global-&1+1 endm_ilb macro lda #>_&2+5-&1 ldy #<_&2+5-&1 jsr _lib+$13e endm_ilw macr}o lda #>_&2+5-&1 ldy #<_&2+5-&1 jsr _lib+$13b endm_inp macro lda #>$bbfe ldy #<$bbfe jsr _lib+$c endm_jmp macro }jmp _&1 endm_jsr macro jsr _&1 endm_lbl macro_&1 equ * endm_lcr macro jsr _lib+$3c endm_lcw macro lda #>&1 l}dy #<&1 jsr _lib+$c endm_ldb macro lda (0,x) sta 0,x lda #0 sta 1,x endm_ldr macro jsr _lib+$45 endm_ldw macro} jsr _lib+$14a endm_lei macro jsr _lib+$132 endm_ler macro jsr _lib+$90 endm_les macro lda #>0-&1 ldy #<0-&1 j}PROGRAM Prime;CONST Size=8190;VAR f: ARRAY[0..Size] OF Boolean; i,k,prime,count: Integer;BEGIN Writeln('1 iteration'8}); count:=0; FOR i:=0 TO Size DO f[i]:=TRUE; FOR i:=0 TO Size DO IF f[i] THEN BEGIN prime:=i+i+3; (* writeln8}(prime); *) k:=i+prime; WHILE K<=Size DO BEGIN f[k]:=FALSE; k:=k+prime; END; count:=count+1 EN8}D; Writeln(count,' primes')END.LE K<=Size DO BEGIN f[k]:=FALSE; k:=k+prime; END; count:=count+1 EN8#sr _lib+$f9 endm_lga macro lda #>_global-&1 ldy #<_global-&1 jsr _lib+$c endm_lgb macro dex dex lda _global-&1 s}ta 0,x lda #0 sta 1,x endm_lgw macro dex dex lda _global-&1 sta 0,x lda _global-&1+1 sta 1,x endm_lia macro de}x dex lda _local sta _t lda _local+1 sta _t+1 ldy #0 lda (_t),y iny cmp #&2 beq *+16 lda (_t),y pha iny lda (_t}),y sta _t+1 pla sta _t jmp *-20 clc lda _t adc #>_&3+5-&1 sta 0,x iny lda _t+1 adc #<_&3+5-&1 sta 1,x endm_li}n macro lda #>&1 ldy #<&1 jsr _lib+$ba endm_ln macro jsr _lib+$123 endm; &1 = lex level; &2 = stack size label; &}3 = param size_lnk macro lda #>_&2+5-&3 ldy #<_&2+5-&3 jsr _lib+$63 ldy #0 lda #&1 sta (_sp),y endm_lla macro lda} #>_&2+5-&1 ldy #<_&2+5-&1 jsr _lib+$141 endm_lpa macro lda #>0-&1 ldy #<0-&1 jsr _lib+$17d endm_lsa macro lda #>}*+10 ldy #<*+8 jsr _lib+$c jmp *+&1+3 endm_lti macro jsr _lib+$105 endm_ltr macro jsr _lib+$8a endm_lts macro }lda #>0-&1 ldy #<0-&1 jsr _lib+$f3 endm_max macro lda #>&1 cmp 0,x lda #<&1 sbc 1,x bcs *+7 lda #2 jsr _lib+$144} endm_min macro sec lda 0,x sbc #>&1 sta 0,x lda 1,x sbc #<&1 sta 1,x endm_mod macro jsr _lib+$6c endm_mov ma}cro lda #>0-&1 ldy #<0-&1 jsr _lib+$60 endm_mpi macro jsr _lib+$15 endm_mpr macro jsr _lib+$5a endm_ndx macro }lda #>&1 ldy #<&1 jsr _lib+$9c endm_ndxb macro clc lda 2,x adc 0,x sta 2,x lda 3,x adc 1,x sta 3,x inx inx end}m_ndxw macro asl 0,x rol 1,x clc lda 2,x adc 0,x sta 2,x lda 3,x adc 1,x sta 3,x inx inx endm_ne macro jsr _}lib+$16e endm_ner macro jsr _lib+$87 endm_nes macro lda #>0-&1 ldy #<0-&1 jsr _lib+$f0 endm_new macro lda #>&1} ldy #<&1 jsr _lib+$117 endm_ngi macro jsr _lib+$96 endm_ngr macro jsr _lib+$51 endm_odd macro jsr _lib+$171 en}dm_not macro jsr _lib+$36 endm_or macro jsr _lib+$150 endm_out macro lda #>$bbff ldy #<$bbff jsr _lib+$c endm}_pag macro jsr _lib+$16b endm_prd macro lda #>&1 ldy #<&1 jsr _lib+$165 endm_put macro lda #>&1 ldy #<&1 jsr _li}b+$b7 endm_rdc macro jsr _lib+$4b endm_rdf macro jsr _lib+$11a endm_rdi macro jsr _lib+$9f endm_rdl macro jsr} _lib+$138 endm_rdr macro jsr _lib+$a2 endm_rdv macro lda #>0-&1 ldy #<0-&1 jsr _lib+$174 endm_res macro jsr _l}ib+$ae endm_rew macro jsr _lib+$b1 endm_rds macro lda #>&1 ldy #<&1 jsr _lib+$39 endm_rou macro jsr _lib+$12f }endm_sbi macro jsr _lib+$f endm_sbr macro jsr _lib+$57 endm_see macro jsr _lib+$1e endm_sgb macro lda 0,x sta} _global-&1 inx inx endm_sgw macro lda 0,x sta _global-&1 lda 1,x sta _global-&1+1 inx inx endm_sin macro jsr }_lib+$e7 endm_slb macro lda #>_&2+5-&1 ldy #<_&2+5-&1 jsr _lib+$2a endm_slw macro lda #>_&2+5-&1 ldy #<_&2+5-&1 j}sr _lib+$2d endm_sqi macro jsr _lib+$108 endm_sqr macro jsr _lib+$10b endm_sqt macro jsr _lib+$120 endm_stb ma}cro jsr _lib+$30 endm_str macro jsr _lib+$48 endm_stw macro jsr _lib+$33 endm_scc macro lda #>&1 ldy #<&1 jsr }_lib+$168 endm_tdo macro lda 0,x cmp 2,x lda 3,x eor #$80 sta _t lda 1,x eor #$80 sbc _t bcs *+9 inx inx inx }inx jmp _&1 endm_tru macro jsr _lib+$4e endm_wrb macro jsr _lib+$7e endm_wrc macro jsr _lib+$7b endm_wre macr}o lda #&1 jsr _lib+$17a endm_wrf macro jsr _lib+$11d endm_wri macro jsr _lib+$72 endm_wrl macro jsr _lib+$6f e}ndm_wrr macro jsr _lib+$75 endm_wrs macro lda #>&1 ldy #<&1 jsr _lib+$78 endm_wrv macro lda #>0-&1 ldy #<0-&1 }jsr _lib+$177 endm_wrx macro jsr _lib+$81 endm_zdf macro jsr _lib+$156 endm_zem macro jsr _lib+$e4 endm_zeq ma}cro jsr _lib+$d8 endm_zin macro jsr _lib+$cc endm_zld macro jsr _lib+$c0 endm_zne macro jsr _lib+$db endm_znt} macro jsr _lib+$159 endm_zsb macro jsr _lib+$de endm_zsg macro jsr _lib+$c6 endm_zsp macro jsr _lib+$e1 endm}_zsr macro jsr _lib+$c9 endm_zst macro jsr _lib+$c3 endm_zun macro jsr _lib+$15c endm ifndef _origin org $2000 }else org _origin endif dw $ffff dw _start dw _lomem-1_start ldx #$ff txs jsr _LoadPascalLibrary lda #>_quit sta} $236 lda #<_quit sta $237 lda #>_lomem ldy #<_lomem jsr _lib lda #>_global sta _sp lda #<_global sta _sp+1 ldx} #0 jsr _1_quit jmp _lib+$135;---------------------; load pascal library;---------------------_LoadPascalLibrary j}sr _loadopen bpl _loadread jsr _loadclose ldy #2_load1 lda $487,y ; user sta _libstr,y dey bpl _load1 jsr _loadopen} bpl _loadread jsr _loadclose ldy #2_load2 lda $484,y ; system sta _libstr,y dey bpl _load2 jsr _loadopen bpl _Load}read_loaderr ldx #0 lda #>_lerrstr sta $344,x lda #<_lerrstr sta $345,x lda #$09 sta $342,x lda #>128 sta $348 lda} #<128 sta $349 jsr _ciov jmp _start_loadread lda #$07 sta $342,x lda #>_loadinfo sta $344,x lda #<_loadinfo sta $3}45,x lda #>6 sta $348,x lda #<6 sta $349,x jsr _ciov bmi _loaderr sec lda _loadinfo+4 sbc _loadinfo+2 sta $348,x }lda _loadinfo+5 sbc _loadinfo+3 sta $349,x lda _loadinfo+2 sta $344,x lda _loadinfo+3 sta $345,x jsr _ciov bmi _loa}derr jsr _loadclose rts_loadopen ldx #$10 lda #$03 sta $342,x lda #>_libstr sta $344,x lda #<_libstr sta $345,x ld}a #$04 sta $34a,x lda #0 sta $34b,x jsr _ciov rts_loadclose lda #$0c sta $342,x jsr _ciov rts_lerrstr asc 'error }loading pascal library' db $9b_libstr asc 'D8:lib' db $9b_loadinfo ds 6 ;%342,x jsr _ciov rts_lerrstr asc 'error R B6.7ˍB0B " device redirect output to deviceas: C$C8CoG A"ɛ;> - !LA!8CLP"8C !LA!CL}P"ʩC !LA!` A"loLP"GoLP"lGL!$CLP" A"LP"$C !` A"ɛL!` A"-LP"LP" A"}ɛʩ:ɛȱ: `ȱ a{8 `A[i `a" ' 'L.error in comma}nd line$C*ȹCɛ C.CsȹC#Cɛ!C`$C"$Cɛ`a.out % L"ɛ L"ɛ}  L"` +9ɛ '9`A`# 1`ɀɁ ><*M '9 1 +9, '9B B`` +9XB B ``YB }B ` ` '9QL,( '9QL, 1 +9,! +9X '9QL, +9) '9QL,`) '9QL, +9, '9 ` +9Y '9QL,`xCyCɛ}FL,!BxCxCyCxCɛQL,B (BB` $ k( g$ $ )` CGGGEEBBEEGGGGGG A( }4` ,$E=E $ 4yC 7)` ,$ƍE(E : $ 4yCGI , 7)`HyD` CGB $ +9ɛ}QL,` S4 5vCL&Lc;C HHBB &hhvC +%,%ll%;m%B%g%$&G&W@y&q8#+j'g%g%<6B\;g%g%g%@GAl%}@@@@AOL,` "CwC&&&&&C iUi=A ,`mBBmBB C` (}`B (`B (B (`BB CwC (`C  1B BB &`FL, 1 CB (BB +9, '9` 1 C B (}B (BiBBiB +9, '9` 1BUL,BmBBBmBB C EB B (BBBL&`BBC 3L} CvC` `vC$M ,L'BȱBP , `8 ň剰L>3ȥȑ}ȹCBȭB`ENL,EEBEBEEEE`L' ȱ '` '` 'ɛ`HJJJJ '}h) 0:iL'`H0 BHIh V`BBH (hBB`lBuCByDCEHI V0`L*HyC`yC`uCtC}BDCEJK VL*` B$DCEJK VL*`8C`ލB'B0B8DCEJK VL*`lEH}BGo :hGGG# BDGEHI VL*B` GL0 BDGEGHI VL* 0`L0ˍB0B}0L0LCMCNC:cɛ_OC:XJC`Cɛ`C )0` 0`C )0`H 0`C )0h`HED ,L.MC}`Cɛ`Ca {8 `C )0`HL)@uCB`DCEJK V`uCtCuCL0HH 'n* 'hC $C}08C@`C 'hH ' 'h * 'L.as: DOS error on file: ݤ* Z** '`***++)+B+L+}a+z+++++ - error codenon-existent devicedevice or file not opendevice timeoutdisk drive # errortoo many open di}sk files disk fullfatal disk I/O errorinternal file # mismatchfile name error file lockedinvalid disk commanddirectory f}ullfile not foundENL,EBEBEBBEEEEE=E`G CG ,B`Gg, BG ,, Bl}, BEE 8Ev, BMC 'LC" ' '`as: on line of include file ",,,,,,,,-L-d----------}--..-.U.ADDRESS ERRORbcCANNOT INCLUDE FILEeFORMAT ERRORgFoward reference in expressionIllegal use of conditional }assembly directives before orMisplaced else operatorIdentifier expected as operandLabel requiredMultiply defined symbolN}ESTING ERRORInvalid op-codePhase errorQUESTIONABLE SYNTAXrstUndefined symbolvwIllegal argument for conditional asse}mblySymbol not in macro call parameter listDirective requires "on" or "off" |.L"./0`X@ԩ6}7آ 0iWE:  0 0 |.LR % 򺢀  #0ɛ% !lD}O Sl ::#)ߍ Һ0 ( ɺHE Һ0L( ɺ Һ0L(H ɺ} Һ0 ( ɺh=Ɉɪɥ- MHJJJJOh)PiBi L.DEHI}B V[cŰűΥQDE V0BDE8尝H屝IHI V0 ɺlH ɺL}/hhhhXL B V`BDEJK V`H BHIh V`DE BHI V`BDEHI} V`Error Code - Bad Load FileFile Not FoundFile Name ErrorNot a Load FileInvailid Device0123456789ABCDEFB +9>} +9 1B`< +9 1BBB`- 28BBBBL1+ '9 2BBBB +9+ 2BmBBBmBBL1- 28}BBBBBBL1*@ 2BBB.BB.BBmBBBmBBܭBBBBL1/V 2BBBB.B.B.B.B8}BBBBBBBBBBBBBBнL1 '9` +9Ɂ *ɀQL,BBBB`BBBB`B 3# C})I BBBȱB` CU ,BBB`k3y3333 B <)L.UNKNOWN ERRORSYMBOL TABLE O}VERFLOWLOST LABELEND OF FILE DURING MACRO DEFINITIONEND OF FILE DURING CONDITIONAL ASSEMBLYqqqqq iy}iDȱ9ȱт'ȱт ȱтȱтȱ)р ȱ)р L 4` CCC C C CyC o:! :CȽyC} o: :ʎxC` :xCGG 3 S4 C 5vC ;L; ; ;` } ;yC葈 ;ɛ`Ŋ勐L>3``GNL,GFȱFxCF X3& 3h` 5G``Gp= B`EEg=k= ')g=k=g=k }=L4= 0 'ץ 0 ' '` d' +imeaqu}y)-%!15=9   },$ }IMEAQU]YLL }l   }NFJJV^  .&**6>n }fjjv~ } 1BUL,BBBBGGBGBG` ZAB B` ZAB B ` vA` vA` 4yCL }>3 S4 C 5vCάGGͮG`GL@GiͬGиG`GDG?G 4yCL>3 S4 5 CvCάGGi }G`GLAJL,G άGG`IL,GGGG 1B`HL,GGGG +9ɀKL,B 3 C``) }`xCyCɛFL,!BxCxCȽyCɛQL,B (BBxCyCxCɛQL,B (BB`HH ' }hh`G`Bɛ#!Ƚɛ!HBhɛHh`A[i ` " QL,BiBBiB C }`wC (8BBBBBBBɀBBɀBAL,B (`Hh`A[i ` " QL,BiBBiB C@}FUNCTION Random: Real;VAR ISO_Var: Integer;BEGIN#A TXA PHA LDA #$0 STA _TRAN1 INC _T JSR POLY U} CMP #$0 BEQ RAN1 ORA #$10 LDY #5 STA (_SP),Y;RAN2 INY JSR POLY ROL A ROL A ROL AU} ROL A AND #$F0 STA _T+1 JSR POLY ORA _T+1 STA (_SP),Y CPY #9 BCC RAN2 LDA _T U} INY STA (_SP),Y PLA TAX#Random:=ISO_VarEND;(* But not quite! *)#APOLY TYA PHA LDY #$0POLU}Y1 INY CLC ROL POLYN ROL POLYN+1 ROL POLYN+2 ROL POLYN+3 ROL POLYN+4 ROL POLYN+5 U} ROL POLYN+6 ROL POLYN+7 BCC POLY3; LDX #$0POLY2 LDA POLYN,X EOR GEN,X STA POLYN,X IU}NX CPX #8 BCC POLY2 SEC;POLY3 ROL _T+2 CPY #4 BCC POLY1; PLA TAY LDA _T+2U} AND #$0F CMP #$0A BCS POLY RTS;;GEN DW $A1 DB $A2 DB $1A DB $A2 DB $91 U} DB $C3 DB $93 DB $C0;POLYN DW $63 DB $42 DB $A1 DB $23 DB $55 DB $09 DU}B $03 DB $87#$93 DB $C0;POLYN DW $63 DB $42 DB $A1 DB $23 DB $55 DB $09 DTPROCEDURE SubString(VAR a1: String; VAR Dest: String; i,j: Integer);VAR k: Integ-}er;BEGIN FOR k:=1 TO MaxString DO Dest[k]:=' '; i:= i-1; FOR k:=1 TO j DO Dest[k]:= a1[i+k]END;AR k: Integ,o11 LDA (_SP),Y ASL A AND #6 TAX LDY #5 LDA (_SP),Y AND #$0F STA _T LDY #7 LDA (_SP),Y ASL A ASL A ASL A ASL A }ASL A ORA _T STA $D201,X LDY #9 LDA (_SP),Y STA $D200,X PLA TAX#end;DY #7 LDA (_SP),Y ASL A ASL A ASL A ASL A Mprocedure graphics(mode:integer);begin#a TXA PHA LDX #$60 LDA #$0C STA $342,X JSR $E456 LDA #>$4000 STA $2E5 LDA #! }<$4000 STA $2E6 LDA #>$2000 STA $E LDA #<$2000 STA $F LDX #$60 LDA #$03 ;OPEN STA $342,X LDA #>FILEN STA $344,X LD!!}A # 1)) do i:=i-1;%$}length:=i;end;var a1:string):integer;var i:integer;begini:=maxstring;while ((a1[i] = ' ') and (i <> 1)) do i:=i-1;$procedure concat(var a1,a2,a3:string);var i,j:integer;begini:=maxstring;while ((a1[i] = ' ') and (i <> 1)) do i:=i-)&}1;j:=1;if (a1[i] <> ' ') then begin while (j <= i) do begin a3[j] := a1[j]; j:=j+1; end;end;i:=1;whi)'}le (j <= maxstring) do begin a3[j] := a2[i]; i:=i+1; j:=j+1;end;end; a1[j]; j:=j+1; end;end;i:=1;whi(PPROGRAM TRIAL(INPUT,OUTPUT);BEGIN WRITELN('HI,THIS IS KYAN PASCAL')END.Bad Load FileFile Not FoundFile Name ErrorN Nfunction index(var a1,a2:string): integer;var i,j,k,l:integer;begini:=maxstring;while ((a2[i] = ' ') and (i <> 1))1,} do i:=i-1;k:=0;repeatj:=1;l:=1; while(j<=i) do begin if(a1[j+k] <> a2[j]) then l:=0; j:=j+1; end; 1-} k:=k+1;until((l=1) or ((i+k)>maxstring));if(l=1) then index:=k else index:=0;end; then l:=0; j:=j+1; end; 0Yprocedure setcolor(reg,color,lum:integer);begin#a LDY #5 LDA (_SP),Y ASL A AND #$0E STA _T LDY #7 LDA (_SP),Y ASL AA/} ASL A ASL A ASL A ORA _T PHA LDA #>$2C4 STA _T LDA #<$2C4 STA _T+1 LDY #9 LDA (_SP),Y AND #$07 CLC ADC _T STAA0} _T PLA LDY #0 STA (_T),Y#END; LDA #>$2C4 STA _T LDA #<$2C4 STA _T+1 LDY #9 LDA (_SP),Y AND #$07 CLC ADC _T STA@#procedure plot(horiz,vert,color:integer);begin#a TXA PHA LDY #7 LDA (_SP),Y STA $54 LDY #9 LDA (_SP),Y STA $55 INYE2} LDA (_SP),Y STA $56 LDX #$60 LDA #$0B STA $342,X LDA #0 STA $348,X STA $349,X LDY #5 LDA (_SP),Y JSR $E456 PLA E3}TAX#END; ,Y STA $56 LDX #$60 LDA #$0B STA $342,X LDA #0 STA $348,X STA $349,X LDY #5 LDA (_SP),Y JSR $E456 PLA D procedure position(horiz,vert:integer);begin#a LDY #5 LDA (_SP),Y STA $54 LDY #7 LDA (_SP),Y STA $55 INY LDA (_SP),I5}Y STA $56#END;n(horiz,vert:integer);begin#a LDY #5 LDA (_SP),Y STA $54 LDY #7 LDA (_SP),Y STA $55 INY LDA (_SP),Hprocedure locate(horiz,vert:integer;var color:integer);begin#a TXA PHA LDY #5 LDA (_SP),Y STA _T INY LDA (_SP),Y SM7}TA _T+1 LDY #7 LDA (_SP),Y STA $54 LDY #9 LDA (_SP),Y STA $55 INY LDA (_SP),Y STA $56 LDX #$60 LDA #$07 STA $342,M8}X LDA #0 STA $348,X STA $349,X JSR $E456 LDY #0 STA (_T),Y TYA INY STA (_T),Y PLA TAX#END; LDA #$07 STA $342,Lhprocedure drawto(horiz,vert,color:integer);begin#a TXA PHA LDY #7 LDA (_SP),Y STA $54 LDY #9 LDA (_SP),Y STA $55 IQ:}NY LDA (_SP),Y STA $56 LDY #5 LDA (_SP),Y STA $2FB LDX #$60 LDA #$11 STA $342,X LDA #$0C STA $34A,X LDA #0 STA $3Q;}4B,X JSR $E456 PLA TAX#END; LDA (_SP),Y STA $2FB LDX #$60 LDA #$11 STA $342,X LDA #$0C STA $34A,X LDA #0 STA $3P `bESTDLIB S bcLIB bHAS B(HI HELP -PR I B PRINT P b#SOUND I bGRAPHICSI b#LENGTH I b%CONCAT I bSUBSTRINI b+INDEX I $HELLO P BPRIME P B PRINT b.SETCOLORI b1PLOT I b4POSITIONI b6LOCATE I b9DRAWTO I b RANDOM I HELLO B~PRIME TESTR P PIC P TESTR PIC /